Option Explicit
Sub I_Sample003()
    Worksheets(1).PageSetup.Order = xlDownThenOver 		'ѤWU
    'Worksheets(1).PageSetup.Order = xlOverThenDown		'ѥk
End Sub
